home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 1.2 & 2.0 / CreateMenuHelp 1.0.cpt / CreateMenuHelp 1.0 (US) / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-12-03  |  2KB  |  21 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0 (US)</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3055</cardID>
  8.     <listID>4692</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- Generic scriptson openStackif stackIsBeingUsed()then exit openStackif the version < 2.1thenanswer "Sorry, this stack requires HyperCard 2.1" with "Too bad"go backexit to HyperCardend ifif CardTop() = 0then hide menuBardoOpenStuffset scroll of cd fld 1 to 0end openStackon closeStackif stackIsBeingUsed()then exit closeStackif CardTop() = 0then show menuBardoCloseStuffend closeStackfunction CardTop Whatif the version contains "SuperCard"then return SCTop()else return top of cd windowend CardTopfunction SCTopreturn top of windowend SCTopfunction stackIsBeingUsedreturn not (the name of this stack is the name of me)end stackIsBeingUsed-- Custom scriptson doOpenStuffgo firstend doOpenStuffon doCloseStuffend doCloseStuffon CMHglobal destStackput value of word 2 of long name of this stack into DestStacklock screenset lockMessages to truego stack value of word 2 of long name of mego cd "CMH"end CMH</script>
  17.     <background id="2661" file="background_2661.xml" name="" />
  18.     <card id="3055" file="card_3055.xml" marked="false" name="" owner="2661" />
  19.     <card id="4309" file="card_4309.xml" marked="false" name="CMH" owner="2661" />
  20. </stack>
  21.